/ APDL Eductation Resources / APDL Eductation Resources.iso / programs / admin / ra / raprogs / chtutcod

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 14 20 f4 3e 3a | 30 2e 24 2e 43 48 54 55 |.... .>:|0.$.CHTU|
|00000010| 54 43 4f 44 0d 00 14 0d | 20 de 20 41 24 28 34 30 |TCOD....| . A$(40|
|00000020| 29 0d 00 1e 38 20 f4 20 | 54 68 69 73 20 70 72 6f |)...8 . |This pro|
|00000030| 67 72 61 6d 20 73 75 62 | 73 74 69 74 75 74 65 73 |gram sub|stitutes|
|00000040| 20 74 75 74 6f 72 20 63 | 6f 64 65 20 69 6e 20 61 | tutor c|ode in a|
|00000050| 20 42 49 41 20 66 69 6c | 65 0d 00 28 04 0d 00 32 | BIA fil|e..(...2|
|00000060| 3c 20 e8 22 45 6e 74 65 | 72 20 66 69 6c 65 6e 61 |< ."Ente|r filena|
|00000070| 6d 65 20 61 73 20 69 74 | 20 61 70 70 65 61 72 73 |me as it| appears|
|00000080| 20 69 6e 20 73 75 62 6a | 65 63 74 20 64 69 72 65 | in subj|ect dire|
|00000090| 63 74 6f 72 79 22 3b 4e | 24 0d 00 3c 09 20 49 25 |ctory";N|$..<. I%|
|000000a0| 3d 30 0d 00 46 0c 20 58 | 3d ad 28 4e 24 29 0d 00 |=0..F. X|=.(N$)..|
|000000b0| 50 06 20 f5 0d 00 5a 33 | 20 e8 23 58 2c 41 24 28 |P. ...Z3| .#X,A$(|
|000000c0| 49 25 29 20 20 20 20 3a | f4 20 72 65 61 64 20 6e |I%)    :|. read n|
|000000d0| 65 78 74 20 73 74 61 74 | 65 6d 65 6e 74 20 69 6e |ext stat|ement in|
|000000e0| 74 6f 20 41 24 28 29 0d | 00 64 0c 20 49 25 3d 49 |to A$().|.d. I%=I|
|000000f0| 25 2b 31 0d 00 6e 0a 20 | fd 20 c5 23 58 0d 00 78 |%+1..n. |. .#X..x|
|00000100| 08 20 d9 23 30 0d 00 82 | 0c 20 41 25 3d 49 25 2d |. .#0...|. A%=I%-|
|00000110| 31 0d 00 8c 23 20 e8 22 | 4e 65 77 20 74 75 74 6f |1...# ."|New tuto|
|00000120| 72 20 6e 61 6d 65 20 65 | 67 20 32 44 52 41 20 22 |r name e|g 2DRA "|
|00000130| 3b 54 4e 24 0d 00 96 10 | 20 e3 20 49 25 3d 30 20 |;TN$....| . I%=0 |
|00000140| b8 20 41 25 0d 00 a0 31 | 20 41 24 28 49 25 29 3d |. A%...1| A$(I%)=|
|00000150| c0 41 24 28 49 25 29 2c | 32 37 29 2b 54 4e 24 2b |.A$(I%),|27)+TN$+|
|00000160| c2 41 24 28 49 25 29 2c | a9 28 41 24 28 49 25 29 |.A$(I%),|.(A$(I%)|
|00000170| 29 2d 33 31 29 0d 00 aa | 06 20 ed 0d 00 b4 10 20 |)-31)...|. ..... |
|00000180| 59 3d ae 28 22 54 45 4d | 50 22 29 0d 00 be 10 20 |Y=.("TEM|P").... |
|00000190| e3 20 4a 25 3d 30 20 b8 | 20 49 25 0d 00 c8 0f 20 |. J%=0 .| I%.... |
|000001a0| f1 23 59 2c 41 24 28 4a | 25 29 0d 00 d2 06 20 ed |.#Y,A$(J|%).... .|
|000001b0| 0d 00 dc 12 20 f1 23 59 | 2c c4 32 34 30 2c 22 41 |.... .#Y|,.240,"A|
|000001c0| 22 29 0d 00 e6 08 20 d9 | 23 30 0d ff             |").... .|#0..    |
+--------+-------------------------+-------------------------+--------+--------+